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iFile FPEAK.FOR 
} Version 'V04-000' 


Vee EERE RARER EERE REAR AAR EEE 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


:* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH phyts ie AND WITH THE 
'* INCLUSION OF THE ABOVE Spt NOTICE. THIS SOFT WARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!t OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
ie TRANSFERRED. . 
® 
* 
* 
® 
® 
® 
* 
® 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eomPokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
‘* 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eee RRR RRA AAAA RAAT AAEAAAR ARERR AERA AAEARAAREARERAAAAAAAAAAE AEE Tee eee 
' 


Syorout ine PEAK(CITABLE, INPUT, INLAST, INPTR,OUTPUT, IDIMO,NPEAKS) 
'A trivial pees iB ye routine. The calling sequence is patterned 
‘after the LSPLIB routine PEAK. 


| 
| 
Integer*4 {Teme 630). OUTPUT(2,IDIMO), INLAST, INPTR, IDIMO,NPEAK | 
Integer*2 INPU 
Parameter NOISE. : ’s 'Noise value = 5 A/D units | 
raave tet ive aoe arameters, if snouneary | 


~lt. 0 ) NPEAKS = 0 
If€ INPTR .lt. 0 ) INPTR = 0 


‘First time thru? 


If€ INPTR .lt. INLAST .and. ITABLE(1) .eq. 0 ) Then 
INPTR = INPTR + 1 
ITABLE(1) = 1 ‘Assume we're rising 
ITABLE(2) = 1 'first point 
ITABLE(S) = INPUTCINPTR) 
End If 
‘Any data to precepet 
IfCINPTR .lt. INLAST ) Then 
Do 10 | = INPTR+1, INLAST 
If( ITABLE(1) “9. 0) Then !We're rising, look for a fall 
If( INPUT(I) .Ut. ITABLE(3)-NOISE ) Then 'We found a peak 
If( NPEAKS .lt. IDIMO ) Then tAny room to store it? 
NPEAKS = NPEAKS ¢ 1 
OUTPUT(1,NPEAKS) = ITABLE(3) 
OUTBUT ts NPEAKS) = ITABLE(2) 
ITABLE(1$ = =1 


J 
=D 


PAAAAMMMMMMMMH 
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'No, tell user 


INPTR = 1 = 
NPEAKS = -IDIMO 
Return 
End If 
else J "re fallin if w found a valle 
e u v 
gels perernae sgt. TABLE (3) +NOTSE ) 1TRBLE tf) = . 
n 
irate ts} = INPUT( 
10 ITABLE(2) = [TABLE (2) + 1 
End If 
INPTR = =-1 ‘Normal exit all data processed. 
Return 


End 
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